home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rokenbok 2.7
/
Rokenbok CD Vol-2.7z
/
Rokenbok CD Vol-2.iso
/
mailing_list_sub.asp
< prev
next >
Wrap
Text File
|
2002-01-30
|
7KB
|
169 lines
<HTML>
<HEAD>
<TITLE>Rokenbok Toy Company | Thank you for contacting Rokenbok!</TITLE>
<!--
Document Name: thankyou.html
Creation Date: 08.17.00
Modification History:
-->
</HEAD>
<BODY BGCOLOR="#FFFFFF" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" TEXT="#000000" LINK="#0033CC" VLINK="#000066" ALINK="#0033CC">
<%
dim emailAddress
dim listTypeValue
dim subscribeTo
'---------------------------------------------------
' cstr converts to a string
'---------------------------------------------------
emailAddress = cstr(request.form("email"))
listTypeValue = cstr(request.form("listtype"))
'---------------------------------------------------------------------
' test for aol email address
'---------------------------------------------------------------------
if (instr(ucase(emailAddress),"@AOL.COM") > 0) then
subscribeTo = "subscribe rokenbok_updates_aol"
'---------------------------------------------------------------------
' not aol, test for html or plain list
'---------------------------------------------------------------------
else
if (ucase(listTypeValue) = "HTML") then
subscribeTo = "subscribe rokenbok_updates_html"
else
subscribeTo = "subscribe rokenbok_updates"
end if
end if
'---------------------------------------------------------------------
' send email to listcert (dups commands as "send email to lyris")
'---------------------------------------------------------------------
set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.to="listcert@rokenbok.com"
cdoMail.from=emailAddress
cdoMail.subject=subscribeTo
cdoMail.Body="mailing list "
cdoMail.Send
set cdoMail=nothing
'---------------------------------------------------------------------
' send email to lyris
'---------------------------------------------------------------------
set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.to="lyris@lyris.rokenbok.com"
cdoMail.from=emailAddress
cdoMail.subject=subscribeTo
cdoMail.Body=" "
cdoMail.Send
set cdoMail=nothing
'---------------------------------------------------------------------
' send confirmation to rokenbok
'---------------------------------------------------------------------
set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.to="maillist@rokenbok.com"
cdoMail.from="lyris"
cdoMail.subject="subscribe " + emailAddress
dim bodyText
bodyText = bodyText + "Email address: " + emailAddress + vbcrlf
bodyText = bodyText + "List type: " + listTypeValue + vbcrlf
bodyText = bodyText + "List subscribed to: " + subscribeTo + vbcrlf
cdoMail.Body = bodyText
cdoMail.Send
set cdoMail = nothing
%>
<CENTER>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD ROWSPAN="2" WIDTH="392" VALIGN="TOP"><A HREF="index.html""><IMG SRC="images/toplogo1.gif" WIDTH="148" HEIGHT="58" BORDER="0" ALT="Rokenbok® System"></A><IMG SRC="images/toplogo2.gif" WIDTH="244" HEIGHT="58"></TD>
<TD VALIGN="TOP"><A HREF="about.html"><IMG SRC="images/1aboutup.gif" WIDTH="58" HEIGHT="36" ALT="About Us" BORDER="0"></A><A HREF="learning.html"><IMG SRC="images/1learnup.gif" WIDTH="97" HEIGHT="36" BORDER="0" ALT="Learning Benefits"></A><A HREF="support.html"><IMG SRC="images/1suppup.gif" WIDTH="54" HEIGHT="36" ALT="Support" BORDER="0"></A><a href="redirect/contact.html"><IMG SRC="images/1contaup.gif" WIDTH="66" HEIGHT="36" ALT="Contact Us" BORDER="0"></A><a href="redirect/dealer_loc.html"><IMG SRC="images/1dealup.gif" WIDTH="93" HEIGHT="36" BORDER="0" ALT="Dealer Locator"></A></TD>
</TR>
<TR>
<TD VALIGN="TOP"><IMG SRC="images/top_blue_stripe.gif" WIDTH="275" HEIGHT="22"><IMG SRC="images/nodeutsch.gif" WIDTH="93" HEIGHT="22" BORDER="0"></TD>
</TR>
<TR VALIGN="TOP">
<TD COLSPAN="2"><IMG SRC="images/top_corner.gif" WIDTH="47" HEIGHT="42"><A HREF="whatis/index.html"><IMG SRC="images/1whatup.gif" WIDTH="140" HEIGHT="42" ALT="What is Rokenbok?" BORDER="0"></A><A HREF="catalog/index.html"><IMG SRC="images/1catup.gif" WIDTH="145" HEIGHT="42" ALT="Toy Catalog" BORDER="0"></A><a href="redirect/czone.html"><IMG SRC="images/1constup.gif" WIDTH="143" HEIGHT="42" ALT="Construction Zone" BORDER="0"></A><IMG SRC="images/top_grey_mid.gif" WIDTH="134" HEIGHT="42"><IMG SRC="images/top_curve_about.gif" WIDTH="151" HEIGHT="42"></TD>
</TR>
</TABLE>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="20" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="400"></TD>
<TD WIDTH="580" VALIGN="TOP"><IMG SRC="images/ahdabout.gif" WIDTH="580" HEIGHT="26" ALT="About Us"><BR>
<BR>
<table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" COLSPAN="2"><IMG SRC="images/bhdthank.gif" WIDTH="400" HEIGHT="23" ALT="Thank You" VSPACE="10"></td>
</tr>
<tr>
<td width="11" valign="top"><img src="images/spacer.gif" width="11" height="10"></td>
<td VALIGN="TOP" WIDTH="569"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">Thank you for joining our mailing list, your information has been submitted!</FONT></td>
</tr>
</table>
</TD>
<TD WIDTH="10" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
<TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"><IMG SRC="images/spacer.gif" WIDTH="4" HEIGHT="10"></TD>
<TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
<TD WIDTH="126" VALIGN="TOP" BGCOLOR="#99CCFF">
<!--Insert callout text in column below-->
<BR>
</TD>
<TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
</TR>
<TR>
<TD VALIGN="TOP" COLSPAN="2"> </TD>
<TD WIDTH="10" VALIGN="TOP"> </TD>
<TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"> </TD>
<TD VALIGN="BOTTOM" BGCOLOR="#99CCFF" COLSPAN="3"><IMG SRC="images/corner_about.gif" WIDTH="146" HEIGHT="15"></TD>
</TR>
</TABLE>
<BR>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="TOP">
<TD WIDTH="20"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="10"></TD>
<TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#0033CC"><A HREF="index.html">Home</A>
| <A HREF="whatis/index.html">What is Rokenbok?</A> | <A HREF="catalog/index.html">Toy
Catalog</A> | <a href="redirect/czone.html">Construction Zone</A>
| <A HREF="about.html">About Us</A> | <A HREF="learning.html">Learning
Benefits</A> | <A HREF="support.html">Support</A> | Contact Us<BR>
<a href="redirect/dealer_loc.html">Dealer Locator</A> | <a href="redirect/mailing_list.html">Join
Mailing List</A> | <a href="redirect/warranty.html">Warranty Registration</A> |
<A HREF="privacy.html">Privacy Statement</A> | <A HREF="terms.html">Terms
of Use</A><BR>
©2002 by Rokenbok Toy Company. All Rights Reserved.</FONT></TD>
</TR>
</TABLE>
<BR>
</CENTER>
</BODY>
</HTML>